home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / microcrn / issue_43.arc / KAYPRO43.ARC / KAYPRO.4 < prev    next >
Encoding:
Text File  |  1988-07-21  |  1.2 KB  |  46 lines
  1. ; Micro Cornucopia issue #43
  2. ; Kaypro Column - Figure 4 UNMAP.ASM
  3.  
  4. ;***********************************************
  5. ;*                                             *
  6. ;*THIS SMALL PROGRAM RESTORES THE CHARACTER    *
  7. ;*TRANSLATION TABLE FOR THE KAYPRO CURSOR      *
  8. ;*KEYS AND THE NUMERIC KEYPAD TO THE STANDARD  *
  9. ;*VALUES.                                      *
  10. ;*                                             *
  11. ;***********************************************
  12.  
  13. ; *** CHANGE THIS TO MATCH THE CP/M SIZE ***
  14.  
  15. SIZE    EQU     63      ;CPM SIZE IN K
  16.  
  17. CBASE   EQU     SIZE*1024-1C00H;BEGINNING OF CCP
  18. FBASE   EQU     CBASE + 800H  ;BEGINNING OF BDOS
  19.  
  20. ; *** OR CHANGE THIS TO MATCH YOUR BIOS ***
  21.  
  22. BIOS    EQU     CBASE + 1600H;BEGINNING OF BIOS
  23.  
  24. VTAB    EQU     BIOS+35H;BEGINNING OF PARAMETERS
  25.  
  26.         ORG     100H
  27.  
  28. UNMAP:  LXI     H, MAP;ADDRESS TRANSLATION TABLE
  29.         LXI     D, VTAB ;ADDRESS CP/M BIOS TABLE
  30.         MVI     B, 18   ;SET BYTE COUNT
  31. LOOP:   MOV     A, M    ;COPY TABLE INTO BIOS
  32.         STAX    D
  33.         INX     H
  34.         INX     D
  35.         DCR     B
  36.         JNZ     LOOP
  37.         RET             ;RETURN TO CCP
  38.  
  39. ;
  40. ; TRANSLATION TABLE TO BE LOADED
  41. ;
  42.  
  43. MAP:    DB      11,10,8,12,'0123456789-,',0DH,'.'
  44.         END
  45.  
  46.